<!-- #include file="../DAL/BD.asp" -->
<!-- #include file="../BLL/DV.asp" -->

<%
    ' Compruebo que el usuario haya iniciado sesion
    if Session("ID_USUARIO") = "" then 
	    Response.Redirect("../UI/index.asp")
    end if

    ' Tomo los valores enviados por post
    Contra = Request.Form("Contra")
    Nombre = Request.Form("Nombre")
    Sexo = Request.Form("Sexo")
    Apellido = Request.Form("Apellido")
    Direccion = Request.Form("Direccion")
    Localidad = Request.Form("Localidad")
    Provincia = Request.Form("Provincia")
    Dni = Request.Form("Dni")
    Mail = Request.Form("Mail")
    FechaNac = Request.Form("FechaNac")
    Telefono = Request.Form("Telefono")

    ' Conecto la base de datos
    set conexion = Conectar()

	' Calculo los digitos verificadores
	dvh = calcularDVH(session("ID_USUARIO") & session("ID_PERFIL") & session("USUARIO") & Contra & Nombre & Apellido & Sexo & Direccion & "1" & Localidad & Provincia & Telefono & Mail & FechaNac & Dni)
	EjecutarConsulta "UPDATE USUARIOS SET NOMBRE = '" & Nombre & "', SEXO = '" & Sexo & "', APELLIDO = '" & Apellido & "', DIRECCION = '" & Direccion & "', LOCALIDAD = '" & Localidad & "', PROVINCIA = '" & Provincia & "', DNI = '" & Dni & "', MAIL = '" & Mail & "', FECHANAC = '" & FechaNac & "', TELEFONO = '" & Telefono & "', DVH = " & cint(dvh) &" WHERE ID_USUARIO = '" & Session("ID_USUARIO") & "' AND HABILITADO = 1" , conexion
	calcularDVV("USUARIOS")	
	
	' Registro el movimiento en la bitacora
	id=obtener_ultimo_id("BITACORA","id_Bitacora") + 1
	dvh=calcularDVH(id & "Modificacion usuario: " & Session("usuario") & "1" & formatdatetime(now(),vbgeneraldate) & session("id_Usuario"))					
	AgregarMovimiento "Modificacion usuario: " & Session("usuario"),"1",session("id_Usuario"),dvh
	calcularDVV("BITACORA")	
	
	' Desconecto la base de datos
	Desconectar(conexion)

	response.Redirect("../UI/perfil.asp")
%>